home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
hardware
/
inoutbrd.lha
/
in-out-board
/
amos_sources
/
Port_Eingang_.ASC
< prev
next >
Wrap
Text File
|
1995-11-28
|
2KB
|
63 lines
'**************************************************************************
'* *
'* Programm: Port_Eingang_.Amos *
'* *
'* © 1993,94,95 Andreas Heinrich *
'* *
'**************************************************************************
'
'
' Dieses Programm liest den Wert an Port 2 ein und legt
' ihn in N ab.
'
'
'**************************************************************************
'
' A=Port selektieren
' N=Wert aus diesem Port lesen
Global A,N
Hide
'
'
A=2 : Rem Eingabeport 2 wird ausgewählt -> IC 2
'
INIT : Rem Nach dem einschalten einmal aufrufen
'
'**************************** Hauptprogramm *******************************
'
'
'
Do
Print "Wert an Eingangsport = ";
'
LESEN
Print N
Print
Print "Noch einmal? Drücke eine Taste."
Print
Print "Oder Abbruch mit Ctrl - C"
Print
Wait Key
Loop
'
'
'************************** Proceduren ********************************
'
Procedure LESEN
'
Poke 12575489,0 : Rem Port als Eingang schalten
Poke 12570624,248+A : Rem Adresse A selektieren
N=Peek(12574977) : Rem Wert N einlesen
Poke 12570624,255 : Rem Ready LED einschalten
'
End Proc
'
Procedure INIT
'
Poke 12571136,199 : Rem Busy,P-aus und SEL=Bitmuster Ausgabe
Poke 12570624,255 : Rem Adresse 7 selektieren (Ready LED ein)
Poke 12575489,0 : Rem Port als Eingang schalten
'
End Proc
'